home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / fpu881 / src6.zoo / floor.c < prev    next >
Text File  |  1991-09-24  |  265b  |  28 lines
  1. /*
  2.  * floor and ceil
  3.  *     from pete housels posting
  4.  */
  5.  
  6. double    modf(double, double *);
  7.  
  8. double
  9. floor(x)
  10. double x;
  11. {
  12.  double fract;
  13.  
  14.  fract = modf(x, &x);
  15.  
  16.  if(fract < 0.0)
  17.     return x - 1.0;
  18.  else
  19.     return x;
  20. }
  21.  
  22. double
  23. ceil(x)
  24. double x;
  25. {
  26.     return(-floor(-x));
  27. }
  28.